Data Base of the Video Yearbook 1995/Data Base of the Video Yearbook 1995 - Disc 1.iso/cosmos/pack2.dir/00036.ls

Text File | 1995-12-30 | 1.3 KB | 37 lines

on enterFrame
  global mydatebase, numb
  set the visible of sprite 5 to 0
  getpac("PACD.PIC")
  getphoto("MOVPHOTOD.PIC")
  getpulo("PULOD.PIC")
  set the visible of sprite 30 to 0
  puppetSprite(30, 0)
  put item 1 of line numb of mydatebase into field "ﾃ嘘ﾃ[ﾃ栄"
  if item 11 of line numb of mydatebase <> 0 then
    put item 2 of line numb of mydatebase into field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣"
    put item 11 of line numb of mydatebase into field "ﾃｨﾃｳﾃｳDﾃｱﾂｺ"
  else
    put item 2 of line numb of mydatebase into field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣"
  end if
  set the textSize of field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣" to 18
  set the textFont of field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣" to "osaka mono"
  set the textSize of field "ﾃｨﾃｳﾃｳDﾃｱﾂｺ" to 18
  set the textFont of field "ﾃｨﾃｳﾃｳDﾃｱﾂｺ" to "osaka mono"
  put item 4 of line numb of mydatebase into field "ﾃ｢ﾃｸﾃ､i"
  put item 5 of line numb of mydatebase into field "ﾃｩﾃｻﾃ､窶"
  put item 8 of line numb of mydatebase into field "ﾃ･ﾃｩ"
  put item 9 of line numb of mydatebase into field "ﾃｬﾂｲ"
  set the textFont of field "ﾃ｢ﾃｸﾃ､i" to "osaka mono"
  set the textFont of field "ﾃｩﾃｻﾃ､窶" to "osaka mono"
  set the textFont of field "ﾃ･ﾃｩ" to "osaka mono"
  set the textFont of field "ﾃｬﾂｲ" to "osaka mono"
  put makenai() into field "ﾃｬ窶｡ﾃｳe"
  set the textFont of field "ﾃｬ窶｡ﾃｳe" to "osaka mono"
  updateStage()
end

on exitFrame
  puppetSound(0)
  updateStage()
end